/ Highlander: The Final Dimension Interactive Kit / Highlander Interactive Kit.sit / Highlander The Final Dimension.rsrc / VWCI_1263

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 00 3f 89 20 | 00 00 00 02 00 00 00 00 |.....?. |........|
|00000010| 00 05 00 00 00 00 00 00 | 02 27 00 00 02 30 00 00 |........|.'...0..|
|00000020| 02 30 00 00 02 30 00 00 | 02 30 6f 6e 20 6d 6f 75 |.0...0..|.0on mou|
|00000030| 73 65 44 6f 77 6e 0d 20 | 20 67 6c 6f 62 61 6c 20 |seDown. | global |
|00000040| 74 6f 70 4c 69 6e 65 50 | 6f 69 6e 74 65 72 0d 20 |topLineP|ointer. |
|00000050| 20 69 66 20 74 6f 70 4c | 69 6e 65 50 6f 69 6e 74 | if topL|inePoint|
|00000060| 65 72 20 3e 20 31 20 74 | 68 65 6e 0d 20 20 20 20 |er > 1 t|hen.    |
|00000070| 70 75 74 20 6c 69 6e 65 | 20 74 6f 70 4c 69 6e 65 |put line| topLine|
|00000080| 50 6f 69 6e 74 65 72 20 | 2d 20 31 20 6f 66 20 66 |Pointer |- 1 of f|
|00000090| 69 65 6c 64 20 22 74 65 | 78 74 46 69 65 6c 64 22 |ield "te|xtField"|
|000000a0| 20 26 20 52 45 54 55 52 | 4e 20 62 65 66 6f 72 65 | & RETUR|N before|
|000000b0| 20 66 69 65 6c 64 20 22 | 73 63 72 65 65 6e 46 69 | field "|screenFi|
|000000c0| 65 6c 64 22 0d 20 20 20 | 20 70 75 74 20 74 6f 70 |eld".   | put top|
|000000d0| 4c 69 6e 65 50 6f 69 6e | 74 65 72 20 2d 20 31 20 |LinePoin|ter - 1 |
|000000e0| 69 6e 74 6f 20 74 6f 70 | 4c 69 6e 65 50 6f 69 6e |into top|LinePoin|
|000000f0| 74 65 72 20 20 20 2d 2d | 75 70 64 61 74 65 20 74 |ter   --|update t|
|00000100| 68 65 20 70 6f 69 6e 74 | 65 72 0d 20 20 65 6e 64 |he point|er.  end|
|00000110| 20 69 66 0d 20 20 72 65 | 70 65 61 74 20 77 68 69 | if.  re|peat whi|
|00000120| 6c 65 20 74 68 65 20 4d | 6f 75 73 65 44 6f 77 6e |le the M|ouseDown|
|00000130| 20 3d 20 54 52 55 45 0d | 20 20 20 20 2d 2d 70 75 | = TRUE.|    --pu|
|00000140| 74 20 22 74 6f 70 4c 69 | 6e 65 50 6f 69 6e 74 65 |t "topLi|nePointe|
|00000150| 72 20 3d 20 22 20 26 26 | 20 74 6f 70 4c 69 6e 65 |r = " &&| topLine|
|00000160| 50 6f 69 6e 74 65 72 0d | 20 20 20 20 69 66 20 74 |Pointer.|    if t|
|00000170| 6f 70 4c 69 6e 65 50 6f | 69 6e 74 65 72 20 3e 20 |opLinePo|inter > |
|00000180| 31 20 74 68 65 6e 0d 20 | 20 20 20 20 20 70 75 74 |1 then. |     put|
|00000190| 20 6c 69 6e 65 20 74 6f | 70 4c 69 6e 65 50 6f 69 | line to|pLinePoi|
|000001a0| 6e 74 65 72 20 2d 20 31 | 20 6f 66 20 66 69 65 6c |nter - 1| of fiel|
|000001b0| 64 20 22 74 65 78 74 46 | 69 65 6c 64 22 20 26 20 |d "textF|ield" & |
|000001c0| 52 45 54 55 52 4e 20 62 | 65 66 6f 72 65 20 66 69 |RETURN b|efore fi|
|000001d0| 65 6c 64 20 22 73 63 72 | 65 65 6e 46 69 65 6c 64 |eld "scr|eenField|
|000001e0| 22 0d 20 20 20 20 20 20 | 70 75 74 20 74 6f 70 4c |".      |put topL|
|000001f0| 69 6e 65 50 6f 69 6e 74 | 65 72 20 2d 20 31 20 69 |inePoint|er - 1 i|
|00000200| 6e 74 6f 20 74 6f 70 4c | 69 6e 65 50 6f 69 6e 74 |nto topL|inePoint|
|00000210| 65 72 20 20 20 2d 2d 75 | 70 64 61 74 65 20 74 68 |er   --u|pdate th|
|00000220| 65 20 70 6f 69 6e 74 65 | 72 0d 20 20 20 20 65 6e |e pointe|r.    en|
|00000230| 64 20 69 66 0d 20 20 65 | 6e 64 20 72 65 70 65 61 |d if.  e|nd repea|
|00000240| 74 0d 65 6e 64 20 6d 6f | 75 73 65 44 6f 77 6e 0d |t.end mo|useDown.|
|00000250| 0d 08 55 70 20 41 72 72 | 6f 77                   |..Up Arr|ow      |
+--------+-------------------------+-------------------------+--------+--------+